# Table 2: Topic with suggested labels, proportions, and the most frequent and exclusive terms

# Clear all
rm(list=ls(all=TRUE))

# Load packages
library(stm)
library(foreign)

# Import data
path <- "P:/2017-pathways/new/4-model-output"
setwd(path)
load("pathwaysPrevFit9.Rdata")

# Most frequent and exclusive terms
labelTopics(pathwaysPrevFit9, n=10)[2]

# Topic proportion
colSums(pathwaysPrevFit9$theta)/2946






